Author: Crystal Lwi

artists <- read.csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-01-12/artists.csv") %>% as.data.frame()
artwork <- read.csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-01-12/artwork.csv") %>% as.data.frame()

artists <- artists %>% clean_names()
artwork <- artwork %>% clean_names()
artists %>% glimpse()
Rows: 3,532
Columns: 9
$ id             <int> 10093, 0, 2756, 1, 622, 2606, 9550, 623, 624, 625, 2411, 626, 627, 628, 629, 630, 2~
$ name           <chr> "Abakanowicz, Magdalena", "Abbey, Edwin Austin", "Abbott, Berenice", "Abbott, Lemue~
$ gender         <chr> "Female", "Male", "Female", "Male", "Male", "Male", "Female", "Male", "Male", "Male~
$ dates          <chr> "born 1930", "1852â\200“1911", "1898â\200“1991", "1760â\200“1803", "born 1935", "19~
$ year_of_birth  <int> 1930, 1852, 1898, 1760, 1935, 1964, 1967, 1940, 1947, 1938, 1728, 1868, 1927, 1917,~
$ year_of_death  <int> NA, 1911, 1991, 1803, NA, 1993, NA, NA, 2014, NA, 1792, 1947, 2005, 1984, 1966, 194~
$ place_of_birth <chr> "Polska", "Philadelphia, United States", "Springfield, United States", "Leicestersh~
$ place_of_death <chr> NA, "London, United Kingdom", "Monson, United States", "London, United Kingdom", NA~
$ url            <chr> "http://www.tate.org.uk/art/artists/magdalena-abakanowicz-10093", "http://www.tate.~
unique(artists$year_of_birth)
  [1] 1930 1852 1898 1760 1935 1964 1967 1940 1947 1938 1728 1868 1927 1917 1878 1895 1904 1912 1899 1767
 [21] 1959 1957 1926 1923 1953 1966 1888 1897 1905 1870 1973 1756 1785 1744 1892 1782 1916 1803 1933 1951
 [41] 1890 1804 1974 1836 1934 1971 1925 1682 1970 1921 1965 1630 1975 1982 1894 1928 1685 1936   NA 1861
 [61] 1883 1979 1815 1969 1914 1874 1978 1887 1900 1896 1929 1881 1817 1828 1893 1763 1886 1939 1945 1944
 [81] 1909 1961 1787 1775 1873 1913 1999 1958 1866 1931 1968 1832 1960 1727 1786 1751 1943 1740 1585 1910
[101] 1911 1788 1924 1977 1871 1950 1902 1922 1780 1907 1769 1626 1972 1747 1789 1741 1941 1955 1850 1906
[121] 1867 1889 1903 1872 1869 1738 1633 1743 1753 1952 1793 1946 1884 1880 1795 1875 1794 1863 1879 1942
[141] 1800 1811 1849 1962 1531 1865 1963 1762 2004 1956 1790 1932 1757 1864 1908 1949 1882 1851 1834 1734
[161] 1876 1802 1644 1937 1822 1833 1773 1629 1824 1919 1826 1948 1920 1750 1821 1901 1857 1805 1733 1813
[181] 1754 1831 1791 1810 1500 1600 1700 1847 1885 1772 1918 1723 1856 1829 1730 1759 1862 1784 1915 1846
[201] 1858 1835 1814 1855 1779 1812 1845 1799 1954 1796 1697 1843 1837 1713 1841 1844 1839 1770 1781 1710
[221] 1660 1774 1798 1988 1582 1807 1725 1662 1840 1680 1825 1572 1792 1776 1877 1609 1742 1726 1783 1717
[241] 1752 1768 1659 1748 1838 1715 1823 1735 1749 1819 1611 1827 1729 1711 1708 1853 1801 1848 1797 1632
[261] 1615 1746 1806 1816 1860 1891 1980 1830 1540 1745 1695 1859 1755 1818 1606 1976 1561 1631 1854 1724
[281] 1699 1642 1645 1640 1737 1778 1985 1698 1686 1764 1530 1692 1547 1758 1707 1777 1497 1718 1635 1701
[301] 1820 1996 1621 1593 1628 1765 1646 1842 1761 1679 1696 1674 1590 1618 1702 1992 1981 1739 1689 1681
[321] 1732 1716 1560 1771 1986 1551 1714 1647 1731 1667 1809 1577 1736 1721 1580 1722 1627 1766 1808 1605
[341] 1703 1594 1705 1675 1684 1599 1694 1641 1639 1656 1617 1652
artists %>% filter(!is.na(gender)) %>% 
  count(gender)

Given that most of the artists are male, let’s have a look at when they are born.

yr <- artists %>% filter(!is.na(year_of_birth), !is.na(gender)) %>% 
  group_by(gender) %>% 
  count(year_of_birth) %>% 
  ggplot(aes(x = year_of_birth, y = n, color = gender))+
  geom_line()+theme_bw(base_size = 13)+
  ylab("Number of artists born")+
  xlab("Year")+
  labs(title= "Artists born by year")+
  theme(plot.title = element_text(hjust = 0.5))

yr %>% ggplotly()

Starting from artists born in 1930-s the number of female artists increased.

art <- right_join(artists, artwork %>% rename(artwork_id = id, artwork_url = url), 
                  by = c("id" = 'artist_id'))
art %>% filter(!is.na(gender)) %>% 
  group_by(gender) %>% 
  count()
NA

Now we can clearly see that there are almost 50x more male artwork as compared to female.

names(art)
 [1] "id"                  "name"                "gender"              "dates"              
 [5] "year_of_birth"       "year_of_death"       "place_of_birth"      "place_of_death"     
 [9] "url"                 "artwork_id"          "accession_number"    "artist"             
[13] "artist_role"         "title"               "date_text"           "medium"             
[17] "credit_line"         "year"                "acquisition_year"    "dimensions"         
[21] "width"               "height"              "depth"               "units"              
[25] "inscription"         "thumbnail_copyright" "thumbnail_url"       "artwork_url"        
ggplotly(art %>% filter(!is.na(gender)) %>% 
  group_by(gender, year) %>% 
  count(gender) %>% 
  ggplot(aes(x = year, y = n, color = gender))+
  geom_line()+ theme_bw(base_size = 13)+
  ylab("Number of artwork")+
  xlab("Year")+
  labs(title= "Artworks by year")+
  theme(plot.title = element_text(hjust = 0.5)))

Artworks distribution show very high by males in the 1800-s century. Sharp decline in artworks in 1846 - 1964. Early 19th century of Europe was facing industrialisation. As a result of this, there could have been fewer artists during that period producing artworks. In response to these changes going on in society, the movement of Realism emerged. Realism sought to accurately portray the conditions and hardships of the poor in the hopes of changing society.

ggplotly(medium %>% filter(!is.na(decade_category), !is.na(gender)) %>% 
  ggplot(aes(x = decade_category, y = canvas, fill = gender))+
  geom_col(position = 'dodge')+
    ggtitle("Canvas by decades")+
  theme_bw())
ggplotly(medium %>% filter(!is.na(decade_category), !is.na(gender)) %>% 
  ggplot(aes(x = decade_category, y = paper, fill = gender))+
  geom_col(position = 'dodge')+
  ggtitle("Paper by decades")+
  theme_bw())
LS0tDQp0aXRsZTogIjIwMjEtMDEtMTIgVGlkeVR1ZXNkYXkgQXJ0aXN0IFRhdGUiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpBdXRob3I6IENyeXN0YWwgTHdpIA0KDQpgYGB7ciB1dGlscywgZWNobz1GfQ0KcGFjbWFuOjpwX2xvYWQoZHBseXIsIGRhdGEudGFibGUsIHB1cnJyLCBsdWJyaWRhdGUsIGphbml0b3IsIHN0cmluZ3IsIHRpZHlyLA0KICAgICAgICAgICAgICAgZ2dwbG90MiwgcGxvdGx5KQ0KYGBgDQoNCmBgYHtyIHJhdyBkYXRhfQ0KYXJ0aXN0cyA8LSByZWFkLmNzdigiaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3Jmb3JkYXRhc2NpZW5jZS90aWR5dHVlc2RheS9tYXN0ZXIvZGF0YS8yMDIxLzIwMjEtMDEtMTIvYXJ0aXN0cy5jc3YiKSAlPiUgYXMuZGF0YS5mcmFtZSgpDQphcnR3b3JrIDwtIHJlYWQuY3N2KCJodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcmZvcmRhdGFzY2llbmNlL3RpZHl0dWVzZGF5L21hc3Rlci9kYXRhLzIwMjEvMjAyMS0wMS0xMi9hcnR3b3JrLmNzdiIpICU+JSBhcy5kYXRhLmZyYW1lKCkNCg0KYXJ0aXN0cyA8LSBhcnRpc3RzICU+JSBjbGVhbl9uYW1lcygpDQphcnR3b3JrIDwtIGFydHdvcmsgJT4lIGNsZWFuX25hbWVzKCkNCmBgYA0KDQpgYGB7ciBBcnQgYXMgZ2VuZGVyfQ0KYXJ0aXN0cyAlPiUgZ2xpbXBzZSgpDQp1bmlxdWUoYXJ0aXN0cyR5ZWFyX29mX2JpcnRoKQ0KYXJ0aXN0cyAlPiUgZmlsdGVyKCFpcy5uYShnZW5kZXIpKSAlPiUgDQogIGNvdW50KGdlbmRlcikNCmBgYA0KR2l2ZW4gdGhhdCBtb3N0IG9mIHRoZSBhcnRpc3RzIGFyZSBtYWxlLCBsZXQncyBoYXZlIGEgbG9vayBhdCB3aGVuIHRoZXkgYXJlIGJvcm4uDQoNCmBgYHtyIFllYXIgYXJ0aXN0cyB3YXMgYm9ybn0NCnlyIDwtIGFydGlzdHMgJT4lIGZpbHRlcighaXMubmEoeWVhcl9vZl9iaXJ0aCksICFpcy5uYShnZW5kZXIpKSAlPiUgDQogIGdyb3VwX2J5KGdlbmRlcikgJT4lIA0KICBjb3VudCh5ZWFyX29mX2JpcnRoKSAlPiUgDQogIGdncGxvdChhZXMoeCA9IHllYXJfb2ZfYmlydGgsIHkgPSBuLCBjb2xvciA9IGdlbmRlcikpKw0KICBnZW9tX2xpbmUoKSt0aGVtZV9idyhiYXNlX3NpemUgPSAxMykrDQogIHlsYWIoIk51bWJlciBvZiBhcnRpc3RzIGJvcm4iKSsNCiAgeGxhYigiWWVhciIpKw0KICBsYWJzKHRpdGxlPSAiQXJ0aXN0cyBib3JuIGJ5IHllYXIiKSsNCiAgdGhlbWUocGxvdC50aXRsZSA9IGVsZW1lbnRfdGV4dChoanVzdCA9IDAuNSkpDQoNCnlyICU+JSBnZ3Bsb3RseSgpDQpgYGANClN0YXJ0aW5nIGZyb20gYXJ0aXN0cyBib3JuIGluIDE5MzAtcyB0aGUgbnVtYmVyIG9mIGZlbWFsZSBhcnRpc3RzIGluY3JlYXNlZC4gDQoNCmBgYHtyIEFydCBieSB5ZWFyfQ0KYXJ0IDwtIHJpZ2h0X2pvaW4oYXJ0aXN0cywgYXJ0d29yayAlPiUgcmVuYW1lKGFydHdvcmtfaWQgPSBpZCwgYXJ0d29ya191cmwgPSB1cmwpLCANCiAgICAgICAgICAgICAgICAgIGJ5ID0gYygiaWQiID0gJ2FydGlzdF9pZCcpKQ0KYXJ0ICU+JSBmaWx0ZXIoIWlzLm5hKGdlbmRlcikpICU+JSANCiAgZ3JvdXBfYnkoZ2VuZGVyKSAlPiUgDQogIGNvdW50KCkNCg0KYGBgDQpOb3cgd2UgY2FuIGNsZWFybHkgc2VlIHRoYXQgdGhlcmUgYXJlIGFsbW9zdCA1MHggbW9yZSBtYWxlIGFydHdvcmsgYXMgY29tcGFyZWQgdG8gZmVtYWxlLiANCg0KYGBge3IgQXJ0d29ya3MgYnkgZGVjYWRlc30NCmdncGxvdGx5KGFydCAlPiUgZmlsdGVyKCFpcy5uYShnZW5kZXIpKSAlPiUgDQogIGdyb3VwX2J5KGdlbmRlciwgeWVhcikgJT4lIA0KICBjb3VudChnZW5kZXIpICU+JSANCiAgZ2dwbG90KGFlcyh4ID0geWVhciwgeSA9IG4sIGNvbG9yID0gZ2VuZGVyKSkrDQogIGdlb21fbGluZSgpKyB0aGVtZV9idyhiYXNlX3NpemUgPSAxMykrDQogIHlsYWIoIk51bWJlciBvZiBhcnR3b3JrIikrDQogIHhsYWIoIlllYXIiKSsNCiAgbGFicyh0aXRsZT0gIkFydHdvcmtzIGJ5IHllYXIiKSsNCiAgdGhlbWUocGxvdC50aXRsZSA9IGVsZW1lbnRfdGV4dChoanVzdCA9IDAuNSkpKQ0KYGBgDQoNCkFydHdvcmtzIGRpc3RyaWJ1dGlvbiBzaG93IHZlcnkgaGlnaCBieSBtYWxlcyBpbiB0aGUgMTgwMC1zIGNlbnR1cnkuIFNoYXJwIGRlY2xpbmUgaW4gYXJ0d29ya3MgaW4gMTg0NiAtIDE5NjQuIEVhcmx5IDE5dGggY2VudHVyeSBvZiBFdXJvcGUgd2FzIGZhY2luZyBpbmR1c3RyaWFsaXNhdGlvbi4gQXMgYSByZXN1bHQgb2YgdGhpcywgdGhlcmUgY291bGQgaGF2ZSBiZWVuIGZld2VyIGFydGlzdHMgZHVyaW5nIHRoYXQgcGVyaW9kIHByb2R1Y2luZyBhcnR3b3Jrcy4NCkluIHJlc3BvbnNlIHRvIHRoZXNlIGNoYW5nZXMgZ29pbmcgb24gaW4gc29jaWV0eSwgdGhlIG1vdmVtZW50IG9mIFJlYWxpc20gZW1lcmdlZC4gUmVhbGlzbSBzb3VnaHQgdG8gYWNjdXJhdGVseSBwb3J0cmF5IHRoZSBjb25kaXRpb25zIGFuZCBoYXJkc2hpcHMgb2YgdGhlIHBvb3IgaW4gdGhlIGhvcGVzIG9mIGNoYW5naW5nIHNvY2lldHkuDQoNCmBgYHtyIHdoYXQgZWxzZSBjYW4gd2UgbG9vayBhdD8gbWVkaXVtIG9mIGFydHdvcmssIHNpemUgb2YgYXJ0d29yaywgaW5jbHVkZT1GQUxTRX0NCmFydCAlPiUgaGVhZCgyMCkNCnVuaXF1ZShhcnQkYXJ0aXN0X3JvbGUpDQoNCm1lZGl1bSA8LSBhcnQgJT4lIA0KICBmaWx0ZXIoYXJ0aXN0X3JvbGUgPT0gImFydGlzdCIpICU+JSANCiAgbXV0YXRlKA0KICAgIGRlY2FkZSA9IHJvdW5kKHllYXIgLyAxMCkgKiAxMCwNCiAgICBtZWRpdW0gPSBnc3ViKCJbMC05K10iLCAiIix0b2xvd2VyKG1lZGl1bSkpLA0KICAgIHNjcmVlbnByaW50ID0gaWZlbHNlKGdyZXBsKCJzY3JlZW5wcmludCIsIG1lZGl1bSkgPT1ULCAxLCAwKSwNCiAgICBidXJsYXAgPSBpZmVsc2UoZ3JlcGwoImJ1cmxhcCIsIG1lZGl1bSk9PVQsIDEsIDApLA0KICAgIGNhbnZhcyA9IGlmZWxzZShncmVwbCgiY2FudmFzIiwgbWVkaXVtKT09VCwgMSwgMCksDQogICAgcGFwZXIgPSBpZmVsc2UoZ3JlcGwoInBhcGVyIiwgbWVkaXVtKT09VCwgMSwwKSwNCiAgICBwaG90b2dyYXBoID0gaWZlbHNlKGdyZXBsKCJwaG90b2dyYXBocyIsIG1lZGl1bSk9PVQsIDEsMCksDQogICAgYWNyeWxpYyA9IGlmZWxzZShncmVwbCgiYWNyeWxpYyIsIG1lZGl1bSk9PVQsIDEsIDApLA0KICAgIHdvb2QgPSBpZmVsc2UoZ3JlcGwoImJvYXJkfHdvb2QiLCBtZWRpdW0pID09IFQsIDEsIDApLA0KICAgIG9pbF9wYWludCA9IGlmZWxzZShncmVwbCgib2lsIHBhaW50IiwgbWVkaXVtKSA9PSBULCAxLDApLA0KICAgIGNoYWxrX3Bhc3RlbF9wZW5faW5rID0gaWZlbHNlKGdyZXBsKCJjaGFsa3xwYXN0ZWx8cGVufGluayIsIG1lZGl1bSk9PVQsIDEsIDApLA0KICAgIHByaW50ZWQgPSBpZmVsc2UoZ3JlcGwoInByaW50IiwgbWVkaXVtKT09VCwgMSwgMCksDQogICAgZ2VsYXRpbl9zaWx2ZXIgPSBpZmVsc2UoZ3JlcGwoImdlbGF0aW5fc2lsdmVyIiwgbWVkaXVtKT09VCwgMSwgMCksDQogICAgbGl0aG9ncmFwaCA9IGlmZWxzZShncmVwbCgibGl0aG9ncmFwaCIsIG1lZGl1bSk9PSBULCAxLDApLA0KICAgIGRlY2FkZV9jYXRlZ29yeSA9IGNhc2Vfd2hlbihkZWNhZGUgPCAxNjAwIH4gIjE2IGNlbnR1cnkiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkZWNhZGUgPj0gMTYwMCAmIGRlY2FkZSA8IDE3MDAgfiAiMTcgY2VudHVyeSIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRlY2FkZSA+PTE3MDAgJiBkZWNhZGU8MTgwMCB+ICIxOCBjZW50dXJ5IiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZGVjYWRlID49MTgwMCAmIGRlY2FkZTwxOTAwIH4gIjE5IGNlbnR1cnkiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkZWNhZGUgPj0xOTAwICYgZGVjYWRlPDIwMDAgfiAiMjAgY2VudHVyeSIsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkZWNhZGUgPj0gMjAwMCB+ICIyMSBjZW50dXJ5IikNCikgJT4lIA0KICBncm91cF9ieSAoZGVjYWRlX2NhdGVnb3J5LCBnZW5kZXIpICU+JSANCiAgc3VtbWFyaXNlX2F0KHZhcnMoc2NyZWVucHJpbnQ6bGl0aG9ncmFwaCksIHN1bSwgbmEucm0gPSBUKSAlPiUgDQogIHVuZ3JvdXAoKQ0KDQpgYGANCg0KYGBge3J9DQpnZ3Bsb3RseShtZWRpdW0gJT4lIGZpbHRlcighaXMubmEoZGVjYWRlX2NhdGVnb3J5KSwgIWlzLm5hKGdlbmRlcikpICU+JSANCiAgZ2dwbG90KGFlcyh4ID0gZGVjYWRlX2NhdGVnb3J5LCB5ID0gY2FudmFzLCBmaWxsID0gZ2VuZGVyKSkrDQogIGdlb21fY29sKHBvc2l0aW9uID0gJ2RvZGdlJykrDQogICAgZ2d0aXRsZSgiQ2FudmFzIGJ5IGRlY2FkZXMiKSsNCiAgdGhlbWVfYncoKSkNCmBgYA0KDQoNCmBgYHtyfQ0KZ2dwbG90bHkobWVkaXVtICU+JSBmaWx0ZXIoIWlzLm5hKGRlY2FkZV9jYXRlZ29yeSksICFpcy5uYShnZW5kZXIpKSAlPiUgDQogIGdncGxvdChhZXMoeCA9IGRlY2FkZV9jYXRlZ29yeSwgeSA9IHBhcGVyLCBmaWxsID0gZ2VuZGVyKSkrDQogIGdlb21fY29sKHBvc2l0aW9uID0gJ2RvZGdlJykrDQogIGdndGl0bGUoIlBhcGVyIGJ5IGRlY2FkZXMiKSsNCiAgdGhlbWVfYncoKSkNCmBgYA0KDQo=